Imports System.Data.OracleClient

Public Class ttifccll
  Public pvin_ctrl_srno As Integer
  Public pvst_form_idnt As String
  Public pvst_ctrl_idnt As String
  Public pvst_ctrl_indc As String
  Public pvst_ctrl_hght_indc As String
  Public pvst_ctrl_wdth_indc As String
  Public pvst_ctrl_xpnt_indc As String
  Public pvst_ctrl_ypnt_indc As String
  Public pvst_refr_ctrl_idnt As String
  Public pvin_ctrl_attr_valu As Integer
  Public pvbl_ctrl_stat As Boolean
  Public pvst_ctrl_cptn As String
  Protected mCmdData As OracleCommand
  Protected mDrData As OracleDataReader

  '-----------------------------------------------------------------------


  Public Sub pvvd_ftch _
            (ByRef orbl_ftch_endx_cndn As Boolean)

    'Dim lvbl_data_exst_cndn As Boolean

    orbl_ftch_endx_cndn = False

    'tvvd_ftch_data_exst_cndn _
    ' (lvbl_data_exst_cndn)

    If mDrData.HasRows = True Then

      mPrFtchData()

      orbl_ftch_endx_cndn = False

    Else

      orbl_ftch_endx_cndn = True

    End If

  End Sub


  '-----------------------------------------------------------------------


  Private Sub mPrFtchData()

    'pvin_ctrl_srno = tvst_getx_clmn_data _
    '                                     ("TFCM_ctrl_srno")

    'pvst_form_idnt = tvst_getx_clmn_data _
    '                                      ("TFCM_form_idnt")

    'pvst_ctrl_idnt = tvst_getx_clmn_data _
    '                                      ("TFCM_ctrl_idnt")

    'pvst_ctrl_indc = tvst_getx_clmn_data _
    '                                      ("TFCM_ctrl_indc")

    'pvst_ctrl_hght_indc = tvst_getx_clmn_data _
    '                                      ("TFCM_ctrl_hght_indc")

    'pvst_ctrl_wdth_indc = tvst_getx_clmn_data _
    '                                     ("TFCM_ctrl_wdth_indc")

    'pvst_ctrl_xpnt_indc = tvst_getx_clmn_data _
    '                                     ("TFCM_ctrl_xpnt_indc")

    'pvst_ctrl_ypnt_indc = tvst_getx_clmn_data _
    '                                     ("TFCM_ctrl_ypnt_indc")

    'pvin_ctrl_attr_valu = tvst_getx_clmn_data _
    '                                     ("TFCM_ctrl_attr_valu")

    'pvst_refr_ctrl_idnt = tvst_getx_clmn_data _
    '                            ("TFCM_refr_ctrl_idnt")

    'pvbl_ctrl_stat = tvst_getx_clmn_data _
    '                                      ("TFCM_ctrl_stat")
    'pvst_ctrl_cptn = tvst_getx_clmn_data("TFCM_ctrl_cptn")

    pvin_ctrl_srno = mDrData("TFCM_ctrl_srno")

    pvst_form_idnt = mDrData("TFCM_form_idnt")

    pvst_ctrl_idnt = mDrData("TFCM_ctrl_idnt")

    pvst_ctrl_indc = mDrData("TFCM_ctrl_indc")

    pvst_ctrl_hght_indc = mDrData("TFCM_ctrl_hght_indc")

    pvst_ctrl_wdth_indc = mDrData("TFCM_ctrl_wdth_indc")

    pvst_ctrl_xpnt_indc = mDrData("TFCM_ctrl_xpnt_indc")

    pvst_ctrl_ypnt_indc = mDrData("TFCM_ctrl_ypnt_indc")

    pvin_ctrl_attr_valu = mDrData("TFCM_ctrl_attr_valu")

    pvst_refr_ctrl_idnt = mDrData("TFCM_refr_ctrl_idnt")

    pvbl_ctrl_stat = mDrData("TFCM_ctrl_stat")

    pvst_ctrl_cptn = mDrData("TFCM_ctrl_cptn")


  End Sub


  '-----------------------------------------------------------------------


  Public Sub pvvd_selc _
              (ByRef orbl_data_exst_cndn As Boolean)

    Dim lrbl_data_exst_cndn As Boolean

    tvvd_selc(lrbl_data_exst_cndn)

    orbl_data_exst_cndn = lrbl_data_exst_cndn

  End Sub


  '-----------------------------------------------------------------------


  Protected Sub tvvd_selc _
                  (ByRef irbl_data_exst_cndn As Boolean)

    Dim lvbl_retn_cndn As Boolean
    Dim lvst_sqlx_strn As String

    lvst_sqlx_strn = _
       "select TFCM_ctrl_srno           " & _
            ",TFCM_form_idnt           " & _
            ",TFCM_ctrl_idnt           " & _
            ",TFCM_ctrl_cptn           " & _
            ",TFCM_ctrl_indc           " & _
            ",TFCM_ctrl_hght_indc      " & _
            ",TFCM_ctrl_wdth_indc      " & _
            ",TFCM_ctrl_xpnt_indc      " & _
            ",TFCM_ctrl_ypnt_indc      " & _
            ",TFCM_ctrl_attr_valu      " & _
            ",TFCM_refr_ctrl_idnt      " & _
            ",TFCM_ctrl_stat           " & _
      "from  TFCM_FORM_CTRL_MSTR       " & _
     "where TFCM_form_idnt   =      ' " & pvst_form_idnt & "' " & _
      "order by TFCM_ctrl_srno       "


    mCmdData = New OracleCommand(lvst_sqlx_strn, con)
    mDrData = mCmdData.ExecuteReader

    'tvvd_exec_qury _
    '  (lvst_sqlx_strn)


    'tvvd_ftch_data_exst_cndn _
    ' (lvbl_retn_cndn)

    If mDrData.HasRows = True Then

      mPrFtchData()

    Else

      lvbl_retn_cndn = False

    End If

    irbl_data_exst_cndn = lvbl_retn_cndn


  End Sub


  '-----------------------------------------------------------------------


  Public Sub pvvd_rtrv_allx()

    tvvd_rtrv_allx()

  End Sub


  '-----------------------------------------------------------------------


  Protected Sub tvvd_rtrv_allx()

    Dim lvst_sqlx_strn As String

    lvst_sqlx_strn = _
       "select TFCM_ctrl_srno           " & _
            ",TFCM_form_idnt           " & _
            ",TFCM_ctrl_idnt           " & _
            ",TFCM_ctrl_cptn           " & _
            ",TFCM_ctrl_indc           " & _
            ",TFCM_ctrl_hght_indc      " & _
            ",TFCM_ctrl_wdth_indc      " & _
            ",TFCM_ctrl_xpnt_indc      " & _
            ",TFCM_ctrl_ypnt_indc      " & _
            ",TFCM_ctrl_attr_valu      " & _
            ",TFCM_refr_ctrl_idnt      " & _
            ",TFCM_ctrl_stat           " & _
      "from  TFCM_FORM_CTRL_MSTR       " & _
     "order by TFCM_ctrl_srno         "

    'tvvd_exec_qury _
    '  (lvst_sqlx_strn)


    mCmdData = New OracleCommand(lvst_sqlx_strn, con)
    mDrData = mCmdData.ExecuteReader

  End Sub


  '-----------------------------------------------------------------------


  Sub New()

    rvvd_init()

  End Sub


  '-----------------------------------------------------------------------


  Private Sub rvvd_init()

    pvin_ctrl_srno = 0
    pvst_form_idnt = ""
    pvst_ctrl_idnt = ""
    pvst_ctrl_indc = ""
    pvin_ctrl_attr_valu = 0
    pvbl_ctrl_stat = True
    pvst_ctrl_cptn = ""

  End Sub

End Class
